home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / T-TPUG Old Monthly Disks / (c)t7.d64 / the valley.c (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  14KB  |  554 lines
  1. 2 REM"ADAPTED BY STEVEN DARNOLD, P.O. BOX 201  ALEXANDRA, NEW ZEALAND[141]
  2. 7 [151]53280,9:[151]53281,9
  3. 8 [151]56,127:[151]56576,149:[151]53272,4:[151]648,128:[151]792,116:[151]793,164:[156]
  4. 9 [134]J(15):J(14)[178]8:J(6)[178]9:J(7)[178]6:J(5)[178]3:J(13)[178]2:J(9)[178]1:J(11)[178]4:J(10)[178]7:CL[178]22528
  5. 10 [134]D(3),G(73),P(8),N(8),S(4),T(2)
  6. 11 [153]"LOADRETURNSYS USR(null)(null)USRABS  INTABSUSRUSR     SGN  + (null)USR(null) SGN  SGN ABSUSRUSR (null)  (null)
  7. 12 PRINT"  [170][180] [182][192][192][181][182][192]      [205]  [206] [204][175][186] [180]  [180] [182][192]   [205][206]
  8. 13 [153]"  +SGN ABS  INTABSANDAND      (null)(null)  SGN + (null)AND (null)ANDABSANDAND  THENFN
  9. 14 PRINT"[129]FIND TREASURE AND BATTLE MONSTERS IN THE
  10. 15 [153]"VALLEY.  AS YOUR CHARACTER GAINS
  11. 16 PRINT"EXPERIENCE, HE BECOMES STRONGER AND MORE
  12. 17 [153]"CAPABLE.
  13. 18 PRINT"[158]USE THE JOYSTICK (PORT 2) TO MOVE.
  14. 28 [134]M$(18),MS(18),N1(18)
  15. 30 VG$[178]"":GC$[178]"":F$[178]"":DL$[178]""
  16. 40 TS[178]0:TN[178]0:TM[178]3:CF[178]0
  17. 50 D$[178]""
  18. 60 D1$[178][200](D$,17)
  19. 70 SP$[178]"                                       "
  20. 80 R$[178]""
  21. 90 R1$[178][200](R$,21)
  22. 100 [129]I[178]1[164]32
  23. 110 [135]C$
  24. 120 [130]I
  25. 130 [129]I[178]0[164]18
  26. 140 [135]M$(I):[135]MS(I):[135]N1(I)
  27. 150 [130]I
  28. 160 [153]"FORDO YOU WISH TO RESTORE A PREVIOUSLY     SAVED CHARACTER (Y/N) ?";
  29. 170 VG$[178]"YN":[141]610
  30. 180 [133]"LOADCHARACTER'S NAME *CMDCMDCMD";J$
  31. 190 [139]J$[178]"*"[167]180
  32. 200 [139][195](J$)[177]16[167][153]"TOO LONG":[137]180
  33. 210 [139]GC$[178]"N"[167]400
  34. 220 [153]"LOADSYSPLACE DATA TAPE IN THE TAPE DECK."
  35. 230 [153]"FORREWIND TAPE IF REQUIRED.
  36. 240 GOSUB660
  37. 250 OPEN1,1,0,J$
  38. 260 INPUT#1,P$
  39. 270 INPUT#1,TS
  40. 280 INPUT#1,EX
  41. 290 INPUT#1,TN
  42. 300 INPUT#1,CS
  43. 310 INPUT#1,PS
  44. 320 INPUT#1,T(0)
  45. 330 INPUT#1,T(1)
  46. 340 INPUT#1,T(2)
  47. 350 INPUT#1,C1
  48. 360 INPUT#1,P1
  49. 370 CLOSE1
  50. 380 C=150
  51. 390 GOTO550
  52. 400 PRINT"[155][147]CHARACTER TYPES...CHOOSE CAREFULLY"
  53. 410 PRINT"[129]WIZARD    (1)"
  54. 420 PRINT"THINKER   (2)"
  55. 430 PRINT"BARBARIAN (3)"
  56. 440 PRINT"WARRIOR   (4)"
  57. 450 PRINT"CLERIC    (5)"
  58. 460 GETGC$:IFGC$=""THEN460
  59. 470 A=VAL(GC$)
  60. 480 IFA=1THENP$="WIZARD":P1=2:C1=0.5:CS=22:PS=28
  61. 490 IFA=2THENP$="THINKER":P1=1.5:C1=0.75:CS=24:PS=26
  62. 500 IFA=3THENP$="BARBARIAN":P1=0.5:C1=2:CS=28:PS=22
  63. 510 IFA=4THENP$="WARRIOR":P1=1:C1=1.25:CS=26:PS=24
  64. 520 IFA=5THENP$="CLERIC":P1=1.25:C1=1:CS=25:PS=25
  65. 530 IFA<1ORA>5THENP$="DOLT":P1=1:C1=1:CS=20:PS=20
  66. 540 EX=1:C=150
  67. 550 PRINT"GOOD LUCK[129]"
  68. 560 PRINT"";J$" THE ";P$
  69. 570 DF=150:DL$="D":GOSUB4540
  70. 580 GOSUB3290
  71. 590 DF=5:GOSUB4540
  72. 600 GOTO780
  73. 610 GETGC$:IFGC$=""THEN610
  74. 620 FORI=1TOLEN(VG$)
  75. 630 IFMID$(VG$,I,1)=GC$THENRETURN
  76. 640 NEXTI
  77. 650 GOTO610
  78. 660 PRINT"[155]PRESS RETURN[155] TO CONTINUE[129]
  79. 670 [161]GC$:[139]GC$[178]""[167]670
  80. 680 [142]
  81. 690 [129]I[178]1[164]10:[161]GC$:[130]I
  82. 700 TV[178]0
  83. 710 [129]I[178]1[164]300
  84. 720 [161]GC$:[139]GC$[178]""[167]740
  85. 730 [137]760
  86. 740 [130]I
  87. 750 TV[178]1
  88. 760 [153] D$;SP$
  89. 770 [142]
  90. 780 M[178]W:PK[178][194](W):[151]M,81:[151]M[170]CL,1
  91. 790 C[178]C[170]3[170]FL
  92. 800 [139]PK[178]77[176]PK[178]78[167]820
  93. 810 [153] D$;"YOUR MOVE...WHICH DIRECTION ?":[137]830
  94. 820 [153] D$;"SAFE ON THE PATH...WHICH WAY ?"
  95. 830 [129]I[178]1[164]10:[161]GC$:[130]I
  96. 840 I[178]J([194](56320)[175]15)
  97. 850 A[178]I:[139]A[178]0[167]840
  98. 860 [139]A[177]3[167]A[178]A[171]3:[137]860
  99. 870 W[178]M[170]A[171]2[171]40[172]([181]((I[171]1)[173]3)[171]1)
  100. 880 TN[178]TN[170]1:[153] D$;SP$
  101. 890 Q[178]81:Q1[178][194](W):[139]Q1[178]32[176]Q1[178]45[167]970
  102. 900 [139]Q1[178]219[167]4870
  103. 910 [139]Q1[178]214[176]Q1[178]160[176]Q1[178]88[167]TN[178]TN[171]1:[137]810
  104. 920 [139]Q1[178]216[176]Q1[178]87[176]Q1[178]173[176]Q1[178]230[167]3040
  105. 930 [139]Q1[178]104[176]Q1[178]96[167]3130
  106. 940 [139]Q1[178]102[167]4430
  107. 950 [139]Q1[178]224[176](GC$[178]"5"[175]PK[178]224)[167]Q[178]81:C[178]C[171]20:[139]C[179][178]0[167]5240
  108. 960 [139]Q1[178]42[167]1230
  109. 970 [151]M,PK:[151]M[170]CL,8:PK[178][194](W):M[178]W:[151]M,Q:[151]M[170]CL,1
  110. 980 [139]PK[178]77[176]PK[178]78[167]DF[178]5:[137]1040
  111. 990 [139]PK[178]45[167]DF[178]5:[137]1040
  112. 1000 RF[178][187](TI)
  113. 1010 [139]RF[179].1[167]1390
  114. 1020 [139]RF[177].8[167]1060
  115. 1030 [153] D$;"NOTHING OF VALUE...SEARCH ON":DF[178]80
  116. 1040 [141]4540
  117. 1050 [137]790
  118. 1060 RF[178][181]([187](TI)[172]5[170]1):EX[178]EX[170]1
  119. 1070 [145]RF[141]1100,1140,1140,1170,1200
  120. 1080 DF[178]80:[141]4540
  121. 1090 [137]790
  122. 1100 [153] D$;"A CIRCLE OF EVIL...DEPART IN HASTE !"
  123. 1110 PS[178]PS[171]FL:C[178][181](C[172].6)
  124. 1120 [139]C[179][178]0[167]5240
  125. 1130 [142]
  126. 1140 [153] D$;"A HOARD OF GOLD"
  127. 1150 TS[178]TS[170][181](FL[172][187](TI)[172]100[170]100)
  128. 1160 [142]
  129. 1170 [153] D$"YOU FEEL THE AURA OF THE DEEP MAGIC..."
  130. 1180 [153]"        ...ALL AROUND YOU..."
  131. 1190 [137]1210
  132. 1200 [153] D$;"...A PLACE OF ANCIENT POWER..."
  133. 1210 PS[178]PS[170]2[170][181](FL[172]P1):CS[178]CS[170][181](FL[172]C1):C[178]C[170]25
  134. 1220 [142]
  135. 1230 [151]M,32:M[178]W:PK[178]32:[151]M,81
  136. 1240 RN[178][187](TI):[153] D$;SP$
  137. 1250 [139]S[178]6[175]RN[177]0.95[175]T(1)[178]6[175]T(2)[178]0[175]RT[177]25[167]T(2)[178]1:[137]1300
  138. 1260 [139]S[178]5[175]RN[177]0.85[175]T(0)[178]0[167]T(0)[178]1:[137]1310
  139. 1270 [139]S[178]4[175]RN[177]0.7[175]T(0)[178]1[175]T(1)[179]6[175]FL[177]T(1)[167]1320
  140. 1280 [139]RN[177]0.43[167][153] D$;"A WORTHLESS BAUBLE":[137]1370
  141. 1290 [153] D$;"A PRECIOUS STONE !":[137]1360
  142. 1300 [153] D$;"YOU FIND THE HELM OF EVANNA !":[137]1360
  143. 1310 [153] D$;"THE AMULET OF ALARIAN...EMPTY...":[137]1360
  144. 1320 [153] D$;"AN AMULET STONE...":[153]
  145. 1330 DF[178]60:DL$[178]"D":[141]4540
  146. 1340 [139]RN[177]0.85[167][153]"...BUT THE WRONG ONE !":[137]1370
  147. 1350 [153]"...THE STONE FITS !":T(1)[178]T(1)[170]1
  148. 1360 TS[178]TS[170]100[172](T(0)[170]T(1)[170]T(2)[170]FL)
  149. 1370 DF[178]80:[141]4540
  150. 1380 [137]790
  151. 1390 [153] D$;"**BEWARE...THOU HAST ENCOUNTED**SYS"
  152. 1400 MS[178]0:N[178]0:CF[178]1
  153. 1410 RF[178][181]([187](TI)[172]17):[139]RF[177]9[175][187](TI)[177]0.85[167]1410
  154. 1420 [139]Q1[178]224[176]PK[178]224[167]RF[178][181]([187](TI)[172]2[170]17)
  155. 1430 [139]RF[178]16[175][187](TI)[179]0.7[167]1410
  156. 1440 [139]FL[179]5[175]RF[178]15[167]1410
  157. 1450 X$[178][200](M$(RF),1)
  158. 1460 [129]I[178]1[164][195](F$)
  159. 1470 [139][202](F$,I,1)[178]X$[167]1500
  160. 1480 [130]I
  161. 1490 [137]1410
  162. 1500 M$[178][201](M$(RF),[195](M$(RF))[171]1)
  163. 1510 [139]MS(RF)[178]0[167]1540
  164. 1520 MS[178][181]((CS[172]0.3)[170]MS(RF)[172]FL[174]0.2[173]([187](TI)[170]1))
  165. 1530 [139]N1(RF)[178]0[167]1550
  166. 1540 N[178][181](N1(RF)[172]FL[174]0.2[173]([187](TI)[170]1))
  167. 1550 U[178][181]((RF[170]5)[172](FL[174]1.5))
  168. 1560 [139] RF[177]23[167]U[178][181]((RF[171]22)[172]FL[174]1.5)
  169. 1570 [153]"";[200](R$,12[171]([195](M$))[173]2);"AN EVIL ";M$
  170. 1580 DF[178]40:[141]4540
  171. 1590 C[178]C[171]1:[139][187](TI)[179]0.6[167]2000
  172. 1600 [153]D$;" FORYOU HAVE SUPRISE...LISTAFORTTACK OR LISTRFORETREATLIST"
  173. 1610 [141]690
  174. 1620 [139]GC$[178]"R"[167]1980
  175. 1630 [139]TV[178]1[167]1690
  176. 1640 [139]GC$[179][177]"A"[167]2000
  177. 1650 DF[178]30:DL$[178]"D":[141]4540
  178. 1660 [153]D$;"FORCAST LISTSFORPELL OR STRIKE LISTHFOREAD LISTBFORODY LISTLFOREGS ?LIST
  179. 1670 GOSUB690
  180. 1680 IFTV=0THEN1710
  181. 1690 PRINTD$;"[158]* TOO SLOW...TOO SLOW *[129]"
  182. 1700 HF=0:GOTO1910
  183. 1710 E=39*LOG(EX)/3.14
  184. 1720 IFGC$="S"THEN2420
  185. 1730 IFMS=0THENPRINTD$;" YOUR SWORD AVAILS YOU NOUGHT HERE":GOTO1910
  186. 1740 IFC<=0THENPRINTD$;" YOU FATALLY EXHAUST YOURSELF":GOTO5240
  187. 1750 RF=RND(TI)*10
  188. 1760 IFGC$="H"AND(RF<5ORCS>MS*4)THENZ=2:GOTO1810
  189. 1770 IFGC$="B"AND(RF<7ORCS>MS*4)THENZ=1:GOTO1810
  190. 1780 IFGC$="L"AND(RF<9ORCS>MS*4)THENZ=0.3:GOTO1810
  191. 1790 PRINTD$;" YOU MISSED IT!"
  192. 1800 HF=0:GOTO1910
  193. 1810 IFHF=1THEND=MS+INT(RND(TI)*9):HF=0:GOTO1840
  194. 1820 D=INT((((CS*50*RND(TI))-(10*MS)+E)/100)*Z):IFD<0THEND=0
  195. 1830 IFCS>(MS-D)*4THENHF=1
  196. 1840 MS=MS-D
  197. 1850 PRINTD$;"A HIT..."
  198. 1860 DF=60:DL$="D":GOSUB4540
  199. 1870 IFD=0THENPRINTD$;"BUT...NO DAMAGE":HF=0:GOTO1910
  200. 1880 PRINTD$;"";D;" DAMAGE...":IFMS<=0THEN1940
  201. 1890 IFHF=1THENDF=30:DL$="D":GOSUB4540
  202. 1900 IFHF=1THENPRINT"THE ";M$;" STAGGERS DEFEATED"
  203. 1910 DF=110:GOSUB4540
  204. 1920 IFHF=1THEN1660
  205. 1930 GOTO2000
  206. 1940 PRINTD$;"...KILLING THE MONSTER..."
  207. 1950 EX=EX+U:HF=0:CF=0
  208. 1960 DF=80:GOSUB4540
  209. 1970 GOTO790
  210. 1980 PRINTD$;"KNAVISH COWARD!":CF=0
  211. 1990 GOTO1960
  212. 2000 PRINTD$;"THE CREATURE ATTACKS..."
  213. 2010 DF=50:DL$="W":GOSUB4540
  214. 2020 IFMS=0THEN2300
  215. 2030 IFMS<NANDN>6ANDRND(TI)<0.5THEN2300
  216. 2040 MS=MS-1:IFMS<=0THEN2240
  217. 2050 RF=INT(RND(TI)*10+1)
  218. 2060 ONRFGOTO2070,2080,2090,2100,2110,2110,2120,2120,2130,2140
  219. 2070 PRINTD$;"IT SWINGS AT YOU...AND MISSES":GOTO2280
  220. 2080 PRINTD$;"YOUR BLADE DEFLECTS THE BLOW":GOTO2280
  221. 2090 PRINTD$;"...BUT HESITATES, UNSURE...":GOTO2280
  222. 2100 Z=3:PRINTD$;"IT STRIKES YOUR HEAD!":GOTO2150
  223. 2110 Z=1.5:PRINTD$;"YOUR CHEST IS STRUCK!":GOTO2150
  224. 2120 Z=1:PRINTD$;"A STRIKE TO YOUR SWORDARM!":GOTO2150
  225. 2130 Z=1.3:PRINTD$;"A BLOW TO YOUR BODY!":GOTO2150
  226. 2140 Z=0.5:PRINTD$;"IT CATCHES YOUR LEGS!"
  227. 2150 DF=60:DL$="D":GOSUB4540
  228. 2160 G=INT((((MS*85*RND(TI))-(9*CS)+E)/100)*Z)
  229. 2170 IFG<0THENG=0:PRINTD$;"...SAVED BY YOUR ARMOUR!  ":GOTO2280
  230. 2180 C=C-G
  231. 2190 CS=CS-INT(G/6)
  232. 2200 IFG=0THENPRINTD$;"SHAKEN......BUT NO DAMAGE DONE":GOTO2280
  233. 2210 PRINTD$;"YOU TAKE...      [157][157][157][157][157][157]";G;" DAMAGE...      "
  234. 2220 IFCS<=0ORC<=0THEN5240
  235. 2230 GOTO2280
  236. 2240 PRINTD$;"...USING ITS LAST ENERGY IN THE ATTEMPT"
  237. 2250 EX=INT(EX+U/2):CF=0
  238. 2260 DF=100:GOSUB4540
  239. 2270 GOTO790
  240. 2280 DF=100:GOSUB4540
  241. 2290 GOTO1660
  242. 2300 PRINTD$;"...HURLING A LIGHTENING BOLT AT YOU!"
  243. 2310 G=INT(((180*N*RND(TI))-(PS+E))/100):N=N-5:IFG>9THENN=N-INT(G/5)
  244. 2320 DF=80:DL$="W":GOSUB4540
  245. 2330 IFN<=0THENN=0:GOTO2240
  246. 2340 IFRND(TI)<0.25THEN2410
  247. 2350 IFG<0THENG=0:GOTO2400
  248. 2360 PRINTD$;"IT STRIKES HOME!"
  249. 2370 DF=110:GOSUB4540
  250. 2380 C=C-G:PS=INT(PS-G/4)
  251. 2390 GOTO2210
  252. 2400 PRINTD$;"YOUR PSI SHIELD PROTECTS YOU":GOTO2280
  253. 2410 PRINTD$;"...MISSED YOU!":GOTO2280
  254. 2420 PRINTD$;"WHICH SPELL (1, 2 OR 3) ?":GOSUB690
  255. 2430 IFTV=1THEN1690
  256. 2440 IFVAL(GC$)>0ANDVAL(GC$)=<3THEN2460
  257. 2450 PRINTD$;"NO SUCH SPELL...     ":GOTO2560
  258. 2460 IF4*PS*RND(TI)<=NTHEN2510
  259. 2470 ONVAL(GC$)GOSUB2600,2710,2850
  260. 2480 ONSCGOTO2540,2560,2580,2490,2520,2500,2510
  261. 2490 PRINTD$;"IT IS BEYOND YOU     ":GOTO2560
  262. 2500 PRINT"BUT THE SPELL FAILS...!":GOTO2560
  263. 2510 PRINTD$;"NO USE, THE BEAST'S PSI SHEILDS IT":GOTO2560
  264. 2520 PRINTD$;"THE SPELL SAPS ALL YOUR STRENGTH"
  265. 2530 GOTO5240
  266. 2540 DF=100:GOSUB4540
  267. 2550 GOTO790
  268. 2560 DF=120:GOSUB4540
  269. 2570 GOTO2000
  270. 2580 DF=60:GOSUB4540
  271. 2590 GOTO1660
  272. 2600 C=C-5:IFC<=0THENSC=5:RETURN
  273. 2610 PRINTD$;"[150]...SLEEP FOUL FIEND THAT I MAY ESCAPE"
  274. 2620 PRINT"AND PRESERVE MY MISERABLE SKIN...[129]"
  275. 2630 DF=180:GOSUB4540
  276. 2640 PRINTD$;"THE CREATURE STAGGERS..."
  277. 2650 DF=60:DL$="D":GOSUB4540
  278. 2660 IFRND(TI)<0.5THEN2690
  279. 2670 PRINT"AND COLLAPSES...STUNNED"
  280. 2680 EX=INT(EX+U/2):CF=0:SC=1:RETURN
  281. 2690 PRINT"BUT RECOVERS WITH A SNARL!"
  282. 2700 SC=2:RETURN
  283. 2710 IFMS>CORPS<49OREX<1000THENSC=4:RETURN
  284. 2720 C=C-10:IFC<0THENSC=5:RETURN
  285. 2730 IFN=0THENPRINTD$;"THIS BEAST HAS NO PSI TO ATTACK":SC=2:RETURN
  286. 2740 PRINTD$;"[150]WITH MY MIND I BATTLE THE FOR MY LIFE[129]
  287. 2750 DF[178]120:[141]4540
  288. 2760 RF[178][187](TI):[139]RF[179]0.4[175]N[177]10[167]SC[178]6:[142]
  289. 2770 D[178][181]((((CS[172]50[172]RF)[171]5[172](MS[170]N)[170]E)[173]50)[173]4)
  290. 2780 [139]D[179][178]0[167]D[178]0:SC[178]7:[142]
  291. 2790 [153]D$;"THE PSI-LANCE CAUSES ";D[172]2;" DAMAGE"
  292. 2800 N[178]N[171]3[172]D:[139]N[179][178]0[167]N[178]0
  293. 2810 MS[178]MS[171]D:[139]MS[179][178]0[167]MS[178]0
  294. 2820 [139](MS[170]N)[177]0[167]SC[178]2:[142]
  295. 2830 [153]"...KILLING THE CREATURE"
  296. 2840 EX[178]EX[170]U:CF[178]0:SC[178]1:[142]
  297. 2850 [139]PS[179]77[176]EX[179]5000[167]SC[178]4:[142]
  298. 2860 C[178]C[171]20:[139]C[179][178]0[167]SC[178]5:[142]
  299. 2870 [153]D$;"DEFWITH THE MIGHT OF MY SWORD I SMITE THEE"
  300. 2880 [153]"WITH THE POWER OF MY SPELL I CURSE THEE"
  301. 2890 [153]"BURN YE SPAWN OF HELL AND SUFFER...FOR"
  302. 2900 DF[178]240:[141]4540
  303. 2910 [153]D$;"A BOLT OF ENERGY LASHES AT THE BEAST..."
  304. 2920 DF[178]80:DL$[178]"W":[141]4540
  305. 2930 [139][187](TI)[177](PS[173]780)[172](5[171]P1)[167][153]D$;"MISSED IT!":SC[178]2:[142]
  306. 2940 D[178][181]((CS[170]PS[172][187](TI))[171](10[172]N[172][187](TI)))
  307. 2950 [139]D[179][178]0[167]D[178]0:SC[178]7:[142]
  308. 2960 [139]MS[178]0[167]N[178]N[171]D:[137]2980
  309. 2970 MS[178]MS[171]D:[139]D[177]10[167]N[178][181](N[171](D[173]3))
  310. 2980 [153]D$;"IT STRIKES HOME CAUSING ";D;" DAMAGE  !"
  311. 2990 [139](MS[170]N)[179][178]0[167]3020
  312. 3000 DF[178]80:DL$[178]"D":[141] 4540
  313. 3010 SC[178]2:[142]
  314. 3020 [153]"THE BEAST DIES SCREAMING !"
  315. 3030 EX[178]EX[170]U:CF[178]0:SC[178]1:[142]
  316. 3040 [139]Q1[178]230[175]PK[178]160[167][153]D$;"YOU CANNOT ENTER THIS WAY...D":[137]3150
  317. 3050 [129]I[178]2[164]7
  318. 3060 P(I)[178]0
  319. 3070 N(I)[178][181]([187](TI)[172]5[170]4)
  320. 3080 [139]N(I)[178]5[167]3070
  321. 3090 [130]I
  322. 3100 [139]S[178]1[167]MP[178]M
  323. 3110 P(2)[178][181]([187](TI)[172]30[170]1)
  324. 3120 TF[178]TN:[137]3170
  325. 3130 [139]TN[177]TF[170][181]([187](TI)[172]6[170]1)[167]3170
  326. 3140 [153]D$;"THE WAY IS BARRED"
  327. 3150 TN[178]TN[171]1:C[178]C[171]10:DF[178]100:DL$[178]"W":[141]4540
  328. 3160 [137]790
  329. 3170 C[178]C[171]10:[151]M,32:[151]W,Q
  330. 3180 [139]Q1[178]96[167]S[178]1:FL[178]1
  331. 3190 [139]Q1[178]104[175]S[178]4[167]S[178]1:FL[178]1
  332. 3200 [139]Q1[178]104[175]S[178]5[176]S[178]6[167]S[178]S[171]3:FL[178]FL[171]4:M[178]MW
  333. 3210 [139]Q1[178]173[167]S[178]2:FL[178]2
  334. 3220 [139]Q1[178]216[167]S[178]3:FL[178]3
  335. 3230 [139]Q1[178]216[176]Q1[178]173[167]D2$[178][200](D$,[181]([187](TI)[172]10)):R2$[178][200](R$,P(2))
  336. 3240 [139]Q1[178]87[167]S[178]4:FL[178]2
  337. 3250 [139]Q1[178]230[167]S[178]S[170]3:FL[178]FL[170]4:MW[178]M
  338. 3260 [145]S[141]3290,3620,3630,3850,3860,3860
  339. 3270 DF[178]5:[141]4540
  340. 3280 [137]780
  341. 3290 [153]"LOAD":F$[178]"VAEGH":FL[178]1:S[178]1
  342. 3300 [153]"SYS(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)WAIT"
  343. 3310 [129]I[178]1[164]12
  344. 3320 [153]"(null)WAITFOR                                     SYS(null)WAIT"
  345. 3330 [130]I
  346. 3340 [153]"(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)WAIT"
  347. 3350 [139]G(0)[179][177]0[167]3480
  348. 3360 M[178]32809[170]([181]([187](TI)[172]11[170]1)[172]40)
  349. 3370 L[178]M:MP[178]M:W[178]M:G(0)[178]M:G(1)[178]219
  350. 3380 [129]I[178]2[164]72[169]2
  351. 3390 [139][187](TI)[177]0.5[167]3410
  352. 3400 PC[178]77:L1[178]L[170]41:[137]3420
  353. 3410 PC[178]78:L1[178]L[171]39
  354. 3420 [139]L1[177][178]33286[176]L1[179][178]32806[167]3390
  355. 3430 G(I[170]1)[178]PC
  356. 3440 [139]I[177]2[175]G(I[170]1)[179][177]G(I[171]1)[167]L1[178]L[170]1
  357. 3450 G(I)[178]L1:L[178]L1:[151]G(I),G(I[170]1)
  358. 3460 [130]I
  359. 3470 G(73)[178]219
  360. 3480 [129]I[178]0[164]72[169]2
  361. 3490 [151]G(I),G(I[170]1)
  362. 3500 [130]I
  363. 3510 [139]S(0)[179][177]0[167]3570
  364. 3520 [129]I[178]1[164]4
  365. 3530 N1[178][181]([187](TI)[172]11)[170]1:N2[178][181]([187](TI)[172]34)[170]1
  366. 3540 S(I)[178]32809[170](40[172]N1)[170]N2
  367. 3550 [139][194](S(I))[179][177]32[176][194](S(I)[170]1)[179][177]32[167]3530
  368. 3560 [130]I
  369. 3570 [151]S(0),216:[151]S(0)[170]1,216:[151]S(1),216:[151]S(1)[170]1,216
  370. 3580 [151]S(2),173:[151]S(2)[170]1,173:[151]S(3),173:[151]S(3)[170]1,173
  371. 3590 [151]S(4),87
  372. 3600 M[178]MP:W[178]M
  373. 3610 [142]
  374. 3620 F$[178]"AFL":PC[178]45:[137]3640
  375. 3630 F$[178]"FAEHL":PC[178]88
  376. 3640 PK[178]32
  377. 3650 [151]53281,8:[153]"LOADFOR":[151]53281,9
  378. 3660 L[178]32810
  379. 3670 [129]I[178]1[164]200
  380. 3680 [151]L[170][181]([187](TI)[172]515),PC
  381. 3690 [130]I
  382. 3700 [153]"";D2$;R2$;"CLOSECLOSEWAIT"
  383. 3710 [153]R2$;"CLOSECLOSECLOSECLOSECLOSEWAIT"
  384. 3720 [153]R2$;"CLOSECLOSEWAIT  CLOSECLOSEWAIT"
  385. 3730 [153]R2$;"CLOSECLOSESPC(WAIT CLOSECLOSECLOSEWAIT"
  386. 3740 [153]R2$;"CLOSECLOSECLOSECLOSECLOSECLOSEWAIT"
  387. 3750 [153]R2$;"CLOSECLOSEWAIT"
  388. 3760 [153]R2$;"CLOSEWAIT"
  389. 3770 [153]"CLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSE";
  390. 3780 [129]I[178]1[164]13
  391. 3790 [153]"CLOSECLOSE";
  392. 3800 [130]I
  393. 3810 [153]"CLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSE"
  394. 3820 [151]33306,32:W[178]33306
  395. 3830 [139]Q1[178]104[167]M[178]MW:W[178]M:[153]"";D2$;R2$;" "
  396. 3840 [142]
  397. 3850 F$[178]"CAGE":P[178]0:H[178]N(FL):PK[178]32:[137]3870
  398. 3860 F$[178]"CBE":P[178]0:H[178]N(FL):PK[178]32:P(FL)[178]P(2)
  399. 3870 [153]"LOADFOR                     WAIT"
  400. 3880 [129]I[178]1[164]13
  401. 3890 [153]" WAIT                    WAIT"
  402. 3900 [130]I
  403. 3910 [153]"                     WAIT"
  404. 3920 [140]:[129]I[178]1[164]P(FL)
  405. 3930 [135]V:[139]V[178]100[167][140]
  406. 3940 [130]I
  407. 3950 L1[178]32810
  408. 3960 [129]J[178]1[164]3
  409. 3970 [135]D(J):P[178]P[170]1
  410. 3980 [139]D(J)[178]100[167][140]:D(J)[178]3:P[178]P[170]1
  411. 3990 [130]J
  412. 4000 [129]I[178]0[164]H:PC[178]160
  413. 4010 L[178]L1[170](40[172]I):[139]L[177]33290[167]4110
  414. 4020 [139]I[178]1[167]PC[178]32
  415. 4030 [139]D(1)[178]0[167]PC[178]160:[137]4050
  416. 4040 [151]L[170]D(1),PC:PC[178]160
  417. 4050 [139]I[178]3[167]PC[178]32
  418. 4060 [151]L[170]D(1)[170]D(2),PC:PC[178]160
  419. 4070 [139]I[178]4[167]PC[178]32
  420. 4080 [151]L[170]D(1)[170]D(2)[170]D(3),PC:PC[178]160
  421. 4090 [130]I
  422. 4100 L1[178]L1[170](40[172]H)[170]40:[137]3960
  423. 4110 L1[178]32810
  424. 4120 [129]J[178]1[164]4
  425. 4130 L[178]L1[170](40[172]J[172](H[170]1))
  426. 4140 [129]K[178]1[164]19
  427. 4150 [139]L[177]33250[167]4200
  428. 4160 [151]L[170]K,PC
  429. 4170 [139]K[178]2[176]K[178]3[172]H[176]K[178]17[167][151]L[170]K,32:[151]L[170]K[171]40,32:[151]L[170]K[170]40,32
  430. 4180 [130]K
  431. 4190 [130]J
  432. 4200 [139]S[178]5[176]S[178]6[167]4230
  433. 4210 [139]FL[173]2[178][181](FL[173]2)[167][151]33219,102:[137]4230
  434. 4220 [151]32829,102
  435. 4230 [139]FL[178]2[176]S[178]5[176]S[178]6[167][151]33336,104:[151]33296,32
  436. 4240 [139]P(3)[178]0[167]W[178]33296
  437. 4250 [139]S[178]5[167]4320
  438. 4260 [139]S[178]6[167]4300
  439. 4270 [153]"";R1$;"THE BLACK TOWER"
  440. 4280 [153]R1$;"   OF ZAEXON"
  441. 4290 [153]R1$;"   FLOOR ";FL[171]1:[137]4340
  442. 4300 [153]"";R1$;" VOUNIM'S WAIT"
  443. 4310 [153]R1$;"   LAIR   WAIT":[137]4350
  444. 4320 [153]"";R1$;"THE TEMPLE OFWAIT"
  445. 4330 [153]R1$;"  Y'NAGIOTH  WAIT"
  446. 4340 P(FL[170]1)[178]P(FL)[170]P
  447. 4350 [139]FL[179]4[176][187](TI)[179]0.3[167][142]
  448. 4360 [129]I[178]1[164][181]([187](TI)[172]5)[170]2
  449. 4370 N1[178][181]([187](TI)[172]19)
  450. 4380 N2[178][181]([187](TI)[172]12)
  451. 4390 [139][194](32811[170]40[172]N2[170]N1)[179][177]32[167]4370
  452. 4400 [151](32811[170]40[172]N2[170]N1),42
  453. 4410 [130]I
  454. 4420 [142]
  455. 4430 [151]W,81:[151]M,32:[151]W[170]CL,1:[151]M[170]CL,8
  456. 4440 [153]D$;"A STAIRWAY...UP OR DOWN ?":TV[178]FL
  457. 4450 VG$[178]"UD":[141]610
  458. 4460 [139]GC$[178]"U"[167]FL[178]FL[170]1:[137]4480
  459. 4470 FL[178]FL[171]1
  460. 4480 [139]FL[177]7[176]FL[179]2[167]4510
  461. 4490 DF[178]110:DL$[178]"D":[141]4540
  462. 4500 [137]3260
  463. 4510 [153]D$;"THESE STAIRS ARE BLOCKED "
  464. 4520 DF[178]60:DL$[178]"D":[141]4540
  465. 4530 FL[178]TV:[137]4440
  466. 4540 [129]DL[178]1[164]2[172](DF[172]TM)
  467. 4550 [130]DL
  468. 4560 [139]DL$[178]"D"[167]DL$[178]"":[142]
  469. 4570 [153]D$;SP$
  470. 4580 [153]SP$
  471. 4590 [153]SP$;
  472. 4600 [139]DL$[178]"W"[167]DL$[178]"":[142]
  473. 4610 [139]CS[177]77[171][181](2[172]P1[174]2.5)[167]CS[178]77[171][181](2[172]P1[174]2.5)
  474. 4620 [139]PS[179]7[167]PS[178]7
  475. 4630 [139]PS[177][181](42[172](P1[170]1)[174][188](P1[174]3.7))[170]75[167]PS[178][181](42[172](P1[170]1)[174][188](P1[174]3.7))[170]75
  476. 4640 [139]C[177]125[171]([181](P1)[172]12.5)[167]C[178]125[171][181]([181](P1)[172]12.5)
  477. 4650 [153]D1$;"LISTON";J$,P$
  478. 4660 [153]"FORTREASURE   =";TS
  479. 4670 [153]"EXPERIENCE =";EX
  480. 4680 [153]"TURNS      =";TN
  481. 4690 [153]D1$;R1$;"COMBAT STR =    CMDCMDCMDCMD";CS
  482. 4700 [153]R1$;"PSI POWER  =    CMDCMDCMDCMD";PS
  483. 4710 [153]R1$;"STAMINA    =    CMDCMDCMDCMD";C"LIST"
  484. 4720 [139]CF[178]1[167]4750
  485. 4730 [153]SP$
  486. 4740 [142]
  487. 4750 [153]D$;"ONON";M$;"WAIT";
  488. 4760 [153]D$;RI$;"ONONM STR =            CMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMD";MS;N;"    "
  489. 4770 [142]
  490. 4780 DF[178]5:DL$[178]"W":[141]4540
  491. 4790 RT[178][181](.1[172](EX[170]TS[173]3)[174].5[170][188](EX[173]((TN[170]1)[174]1.5))):[139]RT[177]28[167]RT[178]28
  492. 4800 [139]RT[179]1[167]RT[178]1
  493. 4810 [153]D$;"YOUR RATING NOW BE ";RT
  494. 4820 [139]T(2)[178]1[167][153]"YOU HAVE THE HELM OF EVANNA"
  495. 4830 [139]T(0)[178]1[167] [153]"AMULET STONES... ";T(1)
  496. 4840 DF[178]250:DL$[178]"W":[141]4540
  497. 4850 [139]GC$[178]"E"[167]C[178]C[171]10:GC$[178]"":[137]790
  498. 4860 [142]
  499. 4870 [153]D$;"THOU ART SAFE IN A CASTLE":[139]CS[179]20[167]CS[178]20
  500. 4880 [151]M,PK:PK[178][194](W):M[178]W:[151]M,Q
  501. 4890 [139]T(2)[178]1[167]DF[178]50:[141]4540:[141]4780
  502. 4900 [153]"WILT THOU LEAVE THE VALLEY (Y/N) ?"
  503. 4910 VG$[178]"YN":[141]610
  504. 4920 DF[178]5:DL$[178]"W":[141]4540
  505. 4930 [141]4780
  506. 4940 DF[178]110:DL$[178]"W":[141]4540
  507. 4950 [139]GC$[178]"Y"[167]5000
  508. 4960 C[178]150:[153]D$;"THY WOUNDS HEALED...THY SWORD SHARP"
  509. 4970 [153]"GO AS THE GODS DEMAND--TRUST NONE OTHER";
  510. 4980 DF[178]480:[141]4540
  511. 4990 [137]790
  512. 5000 [153]"LOADDO YOU WISH TO SAVE ";J$;" ?"
  513. 5010 [153]:[153]"PLEASE KEY Y OR N"
  514. 5020 VG$[178]"YN":[141]610
  515. 5030 [139]GC$[178]"N"[167]5210
  516. 5040 [153]"LOADSYSPLACE DATA TAPE IN THE TAPE DECK."
  517. 5050 [153]"FORREWIND TAPE IF REQUIRED.
  518. 5060 GOSUB660
  519. 5070 OPEN1,1,1,J$
  520. 5080 PRINT#1,P$
  521. 5090 PRINT#1,TS
  522. 5100 PRINT#1,EX
  523. 5110 PRINT#1,TN
  524. 5120 PRINT#1,CS
  525. 5130 PRINT#1,PS
  526. 5140 PRINT#1,T(0)
  527. 5150 PRINT#1,T(1)
  528. 5160 PRINT#1,T(2)
  529. 5170 PRINT#1,C1
  530. 5180 PRINT#1,P1
  531. 5190 CLOSE1
  532. 5200 PRINT"[147]","***DONE***"
  533. 5210 PRINTD$;"      TYPE RUN TO START AGAIN"
  534. 5220 CLR
  535. 5230 END
  536. 5240 C=0:CS=0:PS=0:CF=0
  537. 5250 DF=110:GOSUB4540
  538. 5260 IFT(1)=6THEN5310
  539. 5270 PRINTD$,"OH WHAT A FRAIL SHELL"
  540. 5280 PRINT,"IS THIS THAT WE CALL MAN"
  541. 5290 DF=300:DL$="W":GOSUB4540
  542. 5300 PRINT"[147]":GOTO5210
  543. 5310 T(0)=0:T(1)=0:TS=0:CS=30:C=150:PS=30
  544. 5320 PRINTD$;"ALARIAN'S AMULET PROTECTS THY SOUL"
  545. 5330 PRINT"  LIVE AGAIN  [146]"
  546. 5340 DF=150:GOSUB4540
  547. 5350 L=G(0):MP=L:M=W:S=1:GOTO3260
  548. 5360 DATA4,7,3,6,4,4,6,5,3,6,0,3,8,4,3,5,5,3,8,3,4,5,0,6,3,6,4,6,4,7,4,100
  549. 5370 DATAAWOLFEN,9,0,AHOB-GOBLIN,9,0,AORC,9,0,EFIRE-IMP,7,3,GROCK-TROLL,19,0
  550. 5380 DATAEHARPY,10,12,AOGRE,23,0,BBARROW-WIGHT,0,25,HCENTAUR,18,14
  551. 5390 DATAEFIRE-GIANT,26,20,VTHUNDER-LIZARD,50,0,CMINOTAUR,35,25,CWRAITH,0,30
  552. 5400 DATAFWYVERN,36,12,BDRAGON,50,20,CRING-WRAITH,0,45,ABALROG,50,50
  553. 5410 DATALWATER-IMP,15,15,LKRAKEN,50,0
  554.